Die Statiksoftware RFEM 6 ist die Basis einer modular aufgebauten Programmfamilie. Das Hauptprogramm RFEM 6 dient zur Definition der Struktur, Materialien und Einwirkungen ebener und räumlicher Platten-, Scheiben-, Schalen- und Stabtragwerke. Mischsysteme sind ebenso möglich wie die Behandlung von Volumen- und Kontaktelementen.
Mit RSTAB 9 steht dem anspruchsvollen Tragwerksplaner eine 3D-Stabwerkssoftware zur Verfügung, die den Anforderungen im modernen Ingenieurbau gerecht wird und die den aktuellen Stand der Technik widerspiegelt.
Sind Sie oft zu lange mit der Querschnittsberechnung beschäftigt? Dlubal-Software und das eigenständige RSECTION-Programm erleichtern Ihnen die Arbeit, indem sie Profilkennwerte für verschiedenste Querschnitte ermitteln und eine anschließende Spannungsanalyse durchführen.
Wissen Sie immer, woher der Wind weht? Aus Richtung Innovation natürlich! Mit RWIND 2 haben Sie ein Programm an Ihrer Seite, das einen digitalen Windkanal zur numerischen Simulation von Windströmungen nutzt. Diese Strömungen schickt das Programm um beliebige Gebäudegeometrien und ermittelt die Windlasten auf den Oberflächen.
Sie suchen nach einer Übersicht zu Schneelastzonen, Windzonen und Erdbebenzonen? Dann sind Sie hier richtig. Die Lastzonenkarten eignen sich zur schnellen und einfachen Ermittlung von Schneelastzonen, Windzonen und Erdbebenzonen nach Eurocode und weiteren internationalen Normen.
Möchtest du die Leistungsfähigkeit der Dlubal Software Programme ausprobieren? Du hast die Möglichkeit! Mit der kostenlosen 90-Tage-Vollversion kannst du alle unsere Programme vollständig testen.
Die Berechnungsparameter eines Lastfalls können zunächst nicht beim Anlegen eingestellt werden, sondern nur danach über das Interface eines bestehenden Lastfalls. Um das Interface eines Lastfalls zu erhalten, müssen zunächst die Interfaces 'IModel' und 'ILoads' geholt werden:
Sub test_analysis_parameters()Dim iApp As RFEM5.ApplicationSet iApp = GetObject(, "RFEM5.Application")iApp.LockLicenseDim iMod As RFEM5.IModel3Set iMod = iApp.GetActiveModelOn Error GoTo e' get interface of loadsDim iLds As RFEM5.iLoadsSet iLds = iMod.GetLoads' get interface of load caseDim iLc As RFEM5.ILoadCaseSet iLc = iLds.GetLoadCase(1, AtNo)' get analysis parametersDim param_analy As RFEM5.AnalysisParametersparam_analy = iLc.GetAnalysisParameters' change analysis parametersparam_analy.Method = Postcriticalparam_analy.ModifyLoadingByFactor = Trueparam_analy.LoadingFactor = 1.5' ...' set new analysis parametersiLds.PrepareModificationiLc.SetAnalysisParameters param_analyiLds.FinishModificatione:If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.SourceiMod.GetApplication.UnlockLicenseSet iMod = NothingEnd Sub
Über 'ILoads.GetLoadcase' kann das Interface zu einem bestimmten Lastfall geholt werden. Dieses Interface stellt die Funktionen 'GetAnalysisParameters' und 'SetAnalysisparameters' zur Verfügung, mit denen dann die Parameter ausgelesen und geschrieben werden können.
Die Vorgehensweise ist auch analog für Lastkombinationen verwendbar.
Die Übergabe der Faktoren für die effektiven Längen wird mit Hilfe des Interfaces für den Stab realisiert (IMember), sie heißt SetEffectiveLengths(). Mit GetEffectiveLengths() kann man die Daten auslesen:
// get interface to running RFEM application.iApp = Marshal.GetActiveObject("RFEM5.Application") as IApplication;iApp.LockLicense();// get interface to active RFEM model.iModel = iApp.GetActiveModel();// get interface to model data.IModelData2 iModData = iModel.GetModelData() as IModelData2;// get interface to member 1IMember iMem = iModData.GetMember(1, ItemAt.AtNo);MemberEffectiveLengths memEffLen = iMem.GetEffectiveLengths();memEffLen.No = 1;memEffLen.CheckBucklingLoad = true;memEffLen.Enabled = true;memEffLen.FactorU = 1.1;memEffLen.FactorV = 1.2;memEffLen.FactorY = 1.3;memEffLen.FactorZ = 1.4;// set new effective lengths dataiModData.PrepareModification();iMem.SetEffectiveLengths(memEffLen);iModData.FinishModification();
Zu beachten ist, dass die Eigenschaften für die effektiven Längen (z.B. EffectiveLengthY) der Struktur MemberEffectiveLengths sowie die Eigenschaft CriticalBucklingLoad nur gelesen werden können.
Sub test_section()' get interface from the opened model and lock the licence/program Dim iModel As RFEM5.IModel3 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicense On Error GoTo E Dim iSecs As RFEM5.ISections Set iSecs = iModel.GetSections()
' first delete all sections iSecs.PrepareModification iSecs.DeleteObjects ("All") iSecs.FinishModification ' set section on solid Dim sec As RFEM5.Section sec.EdgePointA.X = 2 sec.EdgePointA.Y = 5 sec.EdgePointA.Z = 0 sec.EdgePointB.X = 2 sec.EdgePointB.Y = 8 sec.EdgePointB.Z = 0 sec.no = 1 sec.Name = "solid section" sec.Plane = GlobalPlaneInPositiveX sec.ShowValuesInIsolines = False sec.Type = SectionOnSolidSectionLine sec.ObjectList = "1" iSecs.PrepareModification iSecs.SetSection sec iSecs.FinishModification
' set section on surface sec.EdgePointA.X = 2 sec.EdgePointA.Y = 0 sec.EdgePointA.Z = 0 sec.EdgePointB.X = 2 sec.EdgePointB.Y = 3 sec.EdgePointB.Z = 0 sec.no = 2 sec.Name = "surface section" sec.Plane = GlobalPlaneInPositiveX sec.ShowValuesInIsolines = True sec.Type = SectionViaSurfacePlane sec.ObjectList = "1" sec.Vector.X = 0 sec.Vector.Y = 0 sec.Vector.Z = 1 iSecs.PrepareModification iSecs.SetSection sec iSecs.FinishModification
' get results Dim iCalc As ICalculation2 Set iCalc = iModel.GetCalculation Dim iRes As IResults2 Set iRes = iCalc.GetResultsInFeNodes(LoadCaseType, 1) Dim secRes() As RFEM5.SectionResult secRes = iRes.GetResultsInSection(2, AtNo, ShearForceVy,ContinuousDistributionWithinObjects, False)
' get model interface Set iApp = iModel.GetApplication() iApp.LockLicense ' get calculation interface Dim iCalc As RFEM5.ICalculation2 Set iCalc = iModel.GetCalculation ' get surface bending theory Dim calc_bend As RFEM5.BendingTheoryType calc_bend = iCalc.GetBendingTheory ' get settings for nonlinearities Dim calc_nl As RFEM5.CalculationNonlinearities calc_nl = iCalc.GetNonlinearities ' get precision and tolerance settings Dim calc_prec As RFEM5.PrecisionAndTolerance calc_prec = iCalc.GetPrecisionAndTolerance ' get calculation settings Dim calc_sets As RFEM5.CalculationSettings calc_sets = iCalc.GetSettings ' get calculation options Dim calc_opts As RFEM5.CalculationOptions calc_opts = iCalc.GetOptions ' set ShearStiffness to false calc_opts.ShearStiffness = False iCalc.SetOptions calc_opts